/***************************************************************************/
/* Procedimiento:  Capt_PermisoMovimientoInsertar
/* Descripcion:   Insertar una fila en la tabla Capt_PermisoMovimiento
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  Capt_PermisoMovimientoInsertar(pnidDocumento NUMBER, pnidAvisoArribo NUMBER, 
						pnidBuque NUMBER, pbandera VARCHAR2, ppuerto_registro VARCHAR2, 
						ptoneladas_Brutas NUMBER, ptoneladas_Netas NUMBER, pcapitan VARCHAR2, 
						ppuerto_procedencia VARCHAR2, pdes_movimiento VARCHAR2, pIMO VARCHAR2, 
						peslora NUMBER, pmanga NUMBER, pcalado_Proa NUMBER, 
						pcalado_Popa NUMBER, pfecha_Movimiento VARCHAR2, pnombre_Buque VARCHAR2, 
						pnaviera VARCHAR2, pmuelle_Origen VARCHAR2, pmuelle_Destino VARCHAR2, 
						pemp_Lanchas VARCHAR2, pnum_Lanchas NUMBER, ppuerto_Reg VARCHAR2, 
						pcodigo_Llamada VARCHAR2, pnum_Oficial NUMBER, pnum_Omi NUMBER, 
						pcolocacion_Quilla NUMBER, ppuesto_Marcha NUMBER, pTRB NUMBER, 
						pTRN NUMBER, pconstructores VARCHAR2, pclase VARCHAR2, 
						pmotor VARCHAR2, ppropietarios VARCHAR2, poperador VARCHAR2, 
						ppuntal NUMBER, peslora_Total NUMBER, peslora_Perpendiculares NUMBER, 
						paltura NUMBER, pluz NUMBER, ppuerto_Destino VARCHAR2, 
						pemp_Amarradores VARCHAR2, pfolio_Permiso_Entrada VARCHAR2, ptipo_Buque VARCHAR2, 
						ptipo_Carga VARCHAR2, pcodigo_Pbip VARCHAR2, pcolor_Casco VARCHAR2, 
						pemp_Remolcadores VARCHAR2, pnum_Remolcadores NUMBER, pemp_Pilotos VARCHAR2, 
						pnum_Pilotos NUMBER, pnum_Amarradores NUMBER, ppeso_Muerto NUMBER, 
						pcalado_Construccion NUMBER, ptipo_Cabo VARCHAR2, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
BEGIN
  INSERT INTO Capt_PermisoMovimiento(nid, nidDocumento, nidAvisoArribo, 
						nidBuque, bandera, puerto_registro, 
						toneladas_Brutas, toneladas_Netas, capitan, 
						puerto_procedencia, des_movimiento, IMO, 
						eslora, manga, calado_Proa, 
						calado_Popa, fecha_Movimiento, nombre_Buque, 
						naviera, muelle_Origen, muelle_Destino, 
						emp_Lanchas, num_Lanchas, puerto_Reg, 
						codigo_Llamada, num_Oficial, num_Omi, 
						colocacion_Quilla, puesto_Marcha, TRB, 
						TRN, constructores, clase, 
						motor, propietarios, operador, 
						puntal, eslora_Total, eslora_Perpendiculares, 
						altura, luz, puerto_Destino, 
						emp_Amarradores, folio_Permiso_Entrada, tipo_Buque, 
						tipo_Carga, codigo_Pbip, color_Casco, 
						emp_Remolcadores, num_Remolcadores, emp_Pilotos, 
						num_Pilotos, num_Amarradores, peso_Muerto, 
						calado_Construccion, tipo_Cabo)
  VALUES               (seq_Capt_PermisoMovimiento.nextval, pnidDocumento, pnidAvisoArribo, 
						pnidBuque, pbandera, ppuerto_registro, 
						ptoneladas_Brutas, ptoneladas_Netas, pcapitan, 
						ppuerto_procedencia, pdes_movimiento, pIMO, 
						peslora, pmanga, pcalado_Proa, 
						pcalado_Popa, to_date(pfecha_Movimiento,'DD/MM/YYYY HH24:MI:SS'), pnombre_Buque, 
						pnaviera, pmuelle_Origen, pmuelle_Destino, 
						pemp_Lanchas, pnum_Lanchas, ppuerto_Reg, 
						pcodigo_Llamada, pnum_Oficial, pnum_Omi, 
						pcolocacion_Quilla, ppuesto_Marcha, pTRB, 
						pTRN, pconstructores, pclase, 
						pmotor, ppropietarios, poperador, 
						ppuntal, peslora_Total, peslora_Perpendiculares, 
						paltura, pluz, ppuerto_Destino, 
						pemp_Amarradores, pfolio_Permiso_Entrada, ptipo_Buque, 
						ptipo_Carga, pcodigo_Pbip, pcolor_Casco, 
						pemp_Remolcadores, pnum_Remolcadores, pemp_Pilotos, 
						pnum_Pilotos, pnum_Amarradores, ppeso_Muerto, 
						pcalado_Construccion, ptipo_Cabo);
  
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  Capt_PermisoMovimiento_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  Capt_PermisoMovimiento_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
